        PND
        PSX 50
LOOP    PPR "X" now equals (X)
        PSX -1
        PGO LOOP